COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	c       PROGRAM SELIP       
C00004 ENDMK
C⊗;
c       PROGRAM SELIP       
 	DIMENSION IBUF(5000)
 	COMMON/FAC/JFAC,KFAC
 	JFAC=80 
 	KFAC=80 
 	CALL PLOTS(IBUF, 5000,1)
 	CALL PLOT(15.,14.75,-3)
 	A=6.
 	B=2.8
       	DO 10 J=1,20
cc	CX=(RAN(K)*10.)-5.
cc	CY=(RAN(K)*10.)-4.
	CX=0.+(J/2-1)
	CY=(J/2)-0.
    	ANG=(RAN(K)*60.)-30
  	PAUSE     
                 
1	CALL ELLIP2(A,B,CX,CY,ANG)
	CALL DPYOUT(1)
     	A=.9*A           
       	B=.9*B          
10	CONTINUE
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
 	STOP
	END